-- Kod för att testa rotation_package

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Float_Text_IO; use Ada.Float_Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
with Rotation_Package; use Rotation_Package;
with Ada.Numerics; use Ada.Numerics;

procedure Rotation_Package_Test_1 is
   V : Int_Vector;
   Rotation_Angle : Float;
   Rotation_Axis : Character;

begin
   Put("Ange vektor som ska roteras (X Y Z): ");
   for I in 1..3 loop
      Get(V(I));
   end loop;
   Vector_Put(V);
   New_Line;
   Put("Ange vinkel att rotera i radianer (för att tex rotera Pi/2 eller 90 grader ange 0.5): ");
   Ada.Float_Text_IO.Get(Rotation_Angle);
   Rotation_Angle := Rotation_Angle * Ada.Numerics.Pi;
   New_Line;
   Put(Rotation_Angle, Exp => 0);
   Put(" radianer");
   New_Line;
   Put("Ange axel som rotationen ska ske kring (X, Y eller Z) stora bokstav: ");
   Ada.Text_IO.Get(Rotation_Axis);
   Rotate_Single_Point_Around_Axis(V, Rotation_Angle, Rotation_Axis);
   New_Line;
   Vector_Put(V);

exception
   when Rotation_Axis_Error =>
      Put("Felaktig Axel Angiven (X, Y eller Z) ");

end Rotation_Package_Test_1;

